Function count_people(ByVal nameStr As String, Optional ByVal sign As String = "、")
    Dim nameArr
    
    nameArr = Split(Replace(nameStr, " ", ""), sign)
    MsgBox UBound(nameArr) - LBound(nameArr) + 1
End Function